home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 7 / Amiga Format AFCD07 (Dec 1996, Issue 91).iso / serious / shareware / programming / gamesmaster / source / asm / rastereffects / agawater.s < prev    next >
Encoding:
Text File  |  1996-09-08  |  5.8 KB  |  212 lines
  1. ;AGA Water Demo
  2. ;---------------
  3. ;Demo of the mirroring and newpalette commands, used to create a water
  4. ;effect.
  5. ;
  6. ;Use  the  joystick  to  move  the water up and down.
  7.  
  8.     opt    o+
  9.  
  10.     INCLUDE    "exec/exec_lib.i"
  11.     INCLUDE    "games/games_lib.i"
  12.     INCLUDE    "games/games.i"
  13.  
  14. LOCAL    =    1
  15.  
  16. CALL    MACRO
  17.     jsr    _LVO\1(a6)
  18.     ENDM
  19.  
  20.     SECTION    "MirrorDemo",CODE
  21.  
  22. ;===========================================================================;
  23. ;                             INITIALISE DEMO
  24. ;===========================================================================;
  25.  
  26. Start:    MOVEM.L    A0-A6/D1-D7,-(SP)
  27.     move.l    ($4).w,a6
  28.     lea    GMS_Name(pc),a1
  29.     moveq    #$00,d0
  30.     CALL    OpenLibrary
  31.     move.l    d0,GMS_Base
  32.     beq    Quit
  33.  
  34.     move.l    GMS_Base(pc),a6
  35.     CALL    SetUserPri
  36.  
  37.     move.l    GMS_Base(pc),a6          ;Tell GMS that we want to add a
  38.     lea    ScreenStruct(pc),a0      ;screen for use.
  39.     CALL    Add_Screen
  40.     tst.l    d0
  41.     bne.s    Error
  42.  
  43.     move.l    SS_MemPtr1(a0),a1        ;a1 = Destination [SS_MemPtr1].
  44.     lea    PackedPicFile(pc),a0     ;a0 = File Name.
  45.     moveq    #$00,d0                  ;d0 = Password
  46.     CALL    SmartLoad
  47.     tst.l    d0
  48.     beq.s    ReturnToDOS
  49.  
  50.     lea    ScreenStruct(pc),a0      ;Now show the screen/pic.
  51.     CALL    Show_Screen
  52.  
  53.     moveq    #JPORT1,d0               ;Initialise Mouse Port 1.
  54.     CALL    Read_Mouse
  55.  
  56. ;===========================================================================;
  57. ;                                MAIN CODE
  58. ;===========================================================================;
  59.  
  60. Loop:    CALL    Wait_OSVBL
  61.     CALL    Update_RasterLines
  62.  
  63.     moveq    #JPORT1,d0
  64.     CALL    Read_Mouse
  65.     ext.w    d0
  66.     add.w    d0,RasterList+2
  67.  
  68. .chk129    cmp.w    #129,RasterList+2
  69.     bgt.s    .chk256
  70.     move.w    #129,RasterList+2
  71.  
  72. .chk256    cmp.w    #255,RasterList+2
  73.     blt.s    .chklmb
  74.     move.w    #255,RasterList+2
  75.  
  76. .chklmb    btst    #MB_LMB,d0
  77.     beq.s    Loop
  78.  
  79.     moveq    #0,d0                    ;d0 = FadeState
  80.     moveq    #2,d1                    ;d1 = Speed of fade.
  81. Fade:    CALL    Wait_OSVBL
  82.     CALL    B24_FadeToBlack          ;Do the fade routine.
  83.     tst.w    d0                       ;Has the fade finished yet?
  84.     bne.s    Fade                     ;If not, keep doing it.
  85.  
  86. ;===========================================================================;
  87. ;                              RETURN TO DOS
  88. ;===========================================================================;
  89.  
  90. ReturnToDOS:
  91.     move.l    GMS_Base(pc),a6
  92.     lea    ScreenStruct(pc),a0
  93.     CALL    Delete_Screen            ;Give back screen memory etc.
  94. Error    move.l    GMS_Base(pc),a1
  95.     move.l    ($4).w,a6
  96.     CALL    CloseLibrary
  97. Quit    MOVEM.L    (SP)+,A0-A6/D1-D7
  98.     moveq    #$00,d0
  99.     rts
  100.  
  101. ;===========================================================================;
  102. ;                                  DATA
  103. ;===========================================================================;
  104.  
  105. GMS_Name:
  106.     dc.b    "games.library",0
  107.     even
  108. GMS_Base:
  109.     dc.l    0
  110.  
  111. AMT_PLANES =    7
  112.  
  113. ScreenStruct:
  114.     dc.l    "GSV1",0
  115.     dc.l    0,0,0             ;Screen_Mem1/2/3
  116.     dc.l    0                 ;Screen link.
  117.     dc.l    ScreenPalette     ;Address of screen palette.
  118.     dc.l    RasterList        ;Address of rasterlist.
  119.     dc.l    256               ;Amt of colours in palette.
  120.     dc.w    320,256,320,256   ;Screen & Pic Height, Width
  121.     dc.w    AMT_PLANES        ;Amt_Planes
  122.     dc.w    0,0               ;X/Y screen offset.
  123.     dc.w    0,0               ;X/Y picture offset.
  124.     dc.l    0                 ;Special attributes.
  125.     dc.w    LORES|COL24BIT    ;Screen mode.
  126.     dc.b    INTERLEAVED       ;Screen type
  127.     dc.b    0                 ;Reserved
  128.     even
  129.  
  130. RasterList:
  131.     WAITLINE 164
  132.     MIRROR
  133.     NEWPALETTE 0,128,WaterPalette
  134.     RASTEND
  135.  
  136. ScreenPalette:
  137.     dc.l    $000000,$FFFFFF,$FAF5F2,$FAE8E7
  138.     dc.l    $EEDED5,$E8D4C8,$DDC0AF,$D7B5A2
  139.     dc.l    $D1AC96,$DCA491,$CBA38B,$C5997E
  140.     dc.l    $BD8E74,$B5846A,$AD7A5F,$A57056
  141.     dc.l    $9D674D,$955D44,$8C533B,$844B34
  142.     dc.l    $7C432D,$743B26,$6C3320,$642D1B
  143.     dc.l    $5C2616,$532010,$4A1D0C,$411A09
  144.     dc.l    $381606,$2F1204,$260F02,$1D0C00
  145.     dc.l    $AC783A,$A67139,$A06C39,$986638
  146.     dc.l    $995F36,$906037,$8C5C36,$945733
  147.     dc.l    $865735,$905030,$7E5133,$8D4B2E
  148.     dc.l    $764B31,$6E4630,$8A462D,$64412B
  149.     dc.l    $5D3D27,$593A24,$543822,$50351F
  150.     dc.l    $4B341D,$47301A,$592218,$402D17
  151.     dc.l    $382813,$3B2007,$302310,$2B200D
  152.     dc.l    $331100,$430907,$3C0504,$2E0202
  153.     dc.l    $B48038,$B7743D,$AE6350,$A85D4A
  154.     dc.l    $A35644,$9E503E,$994A39,$944534
  155.     dc.l    $9F4336,$8E3F30,$87412B,$87382A
  156.     dc.l    $823628,$803226,$792C21,$72251C
  157.     dc.l    $E1AB98,$DBA28C,$D79C89,$D29582
  158.     dc.l    $CD8D7A,$C88672,$C27E6B,$BD7764
  159.     dc.l    $B8705D,$B36A57,$BB5244,$AD4A3D
  160.     dc.l    $C8594A,$7F7444,$847D49,$67271E
  161.     dc.l    $6C2219,$651D15,$5E1711,$57130E
  162.     dc.l    $500F0B,$4A0C09,$350303,$270000
  163.     dc.l    $89874E,$8C8E53,$8C9358,$8E9D62
  164.     dc.l    $C6904A,$9AA467,$CD9E51,$AFAE6F
  165.     dc.l    $E3D765,$D5AE58,$BCAD78,$C1AC7C
  166.     dc.l    $CBAA82,$D5A588,$EAA09B,$ECA7A2
  167.     dc.l    $EDADA9,$EFB5B1,$F0BBB8,$F2C2BF
  168.     dc.l    $F4CBC8,$F5D1CF,$F7D9D7,$FDF7F7
  169.  
  170. WaterPalette:
  171.     dc.l    $000000,$A3A3A3,$A09D9B,$A09494
  172.     dc.l    $988E88,$948880,$8D7B70,$8A7468
  173.     dc.l    $866E60,$8D695D,$826859,$7E6251
  174.     dc.l    $795B4A,$745444,$6F4E3D,$6A4837
  175.     dc.l    $644231,$5F3C2C,$5A3526,$543021
  176.     dc.l    $4F2B1D,$4A2618,$452114,$401D11
  177.     dc.l    $3B180E,$35140A,$2F1308,$2A1106
  178.     dc.l    $240E04,$1E0C03,$180A01,$130800
  179.     dc.l    $6E4D25,$6A4824,$664524,$614124
  180.     dc.l    $623D23,$5C3D23,$5A3B23,$5F3821
  181.     dc.l    $563822,$5C331F,$513421,$5A301D
  182.     dc.l    $4C301F,$462D1F,$582D1D,$402A1C
  183.     dc.l    $3C2719,$392517,$362416,$332214
  184.     dc.l    $302113,$2D1F11,$39160F,$291D0F
  185.     dc.l    $241A0C,$261404,$1F160A,$1C1408
  186.     dc.l    $210B00,$2B0604,$260303,$1D0101
  187.     dc.l    $735224,$754A27,$6F3F33,$6C3C2F
  188.     dc.l    $68372C,$653328,$622F24,$5F2C21
  189.     dc.l    $662B23,$5B281F,$562A1C,$56241B
  190.     dc.l    $53231A,$522018,$4D1C15,$491812
  191.     dc.l    $906D61,$8C685A,$8A6458,$865F53
  192.     dc.l    $835A4E,$805649,$7C5144,$794C40
  193.     dc.l    $76483C,$734438,$78342C,$6F2F27
  194.     dc.l    $80392F,$514A2C,$54502F,$421913
  195.     dc.l    $451610,$41130D,$3C0F0B,$380C09
  196.     dc.l    $330A07,$2F0806,$220202,$190000
  197.     dc.l    $585632,$5A5B35,$5A5E38,$5B643F
  198.     dc.l    $7F5C2F,$636942,$836534,$706F47
  199.     dc.l    $918A41,$886F38,$786F4D,$7C6E4F
  200.     dc.l    $826D53,$886A57,$966663,$976B68
  201.     dc.l    $986F6C,$997471,$9A7876,$9B7C7A
  202.     dc.l    $9C8280,$9D8684,$9E8B8A,$A29E9E
  203.  
  204.  
  205. PackedPicFile:
  206.     IFNE    LOCAL
  207.     dc.b    "GAMESLIB:"
  208.     ENDC
  209.     dc.b    "data/Yattering128.pak",0
  210.     even
  211.  
  212.